home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution8.11
< prev
next >
Wrap
Text File
|
2007-02-28
|
612b
|
25 lines
0010 DIM GRADE$(5) OF 40, CH$ OF 1, POINT(5)
0020 FOR K:=1 TO 5 DO POINT(K):=0
0030 FOR LETTER:=1 TO 100 DO
0040 CH$:=CHR$(RND(65,90))
0050 IF CH$<="F" THEN
0060 POINT(1):=POINT(1)+1
0070 GRADE$(1,POINT(1)):=CH$
0080 ELIF CH$<="K" THEN
0090 POINT(2):=POINT(2)+1
0100 GRADE$(2,POINT(2)):=CH$
0110 ELIF CH$<="Q" THEN
0120 POINT(3):=POINT(3)+1
0130 GRADE$(3,POINT(3)):=CH$
0140 ELIF CH$<="U" THEN
0150 POINT(4):=POINT(4)+1
0160 GRADE$(4,POINT(4)):=CH$
0170 ELSE
0180 POINT(5):=POINT(5)+1
0190 GRADE$(5,POINT(5)):=CH$
0200 ENDIF
0210 ENDFOR LETTER
0220 FOR K:=1 TO 5 DO
0230 PRINT GRADE$(K);POINT(K)
0240 ENDFOR K